home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / FORTH / 0485.ZIP / UNPACK.BAT < prev   
Encoding:
DOS Batch File  |  1987-01-13  |  861 b   |  50 lines
  1. echo off
  2. rem batch file to unpack FORTH
  3.  
  4. if not %1# == # goto go
  5. echo missing destination for unpacked files
  6. echo see README for instructions
  7. goto done
  8.  
  9. :go
  10. echo unpacking documentation...
  11. arc e forth *.doc *.toc
  12. echo copying to %1...
  13. copy *.?oc %1
  14. del *.?oc
  15.  
  16. echo *** replace destination disk (%1) with empty, formatted disk ***
  17. pause
  18.  
  19. echo unpacking MASM source...
  20. arc e forth *.asm *.mac *.h *.ibm *.mac
  21. echo copying to %1...
  22. copy *.asm %1
  23. copy *.h %1
  24. copy *.ibm %1
  25. copy *.mac %1
  26. del *.asm
  27. del *.h
  28. del *.ibm
  29. del *.mac
  30.  
  31. echo unpacking programs...
  32. arc e forth *.com *.bat
  33. echo copying to %1...
  34. copy *.com %1
  35. copy *.bat %1
  36. del *.com
  37. del make4th.bat
  38. del makgl.bat
  39. del sortgl.bat
  40.  
  41. echo unpacking FORTH screen files...
  42. arc e forth *.scr
  43. echo copying to %1...
  44. copy *.scr %1
  45. del *.scr
  46.  
  47. echo unpacking complete
  48.  
  49. :done
  50.